Imports System.Collections.Generic



Public Class Clientes
    Public Function AgregarCliente(ByVal item As ENTIDADES.Cliente) As Int32
        Dim oDatos As DATOS.Clientes

        Try
            oDatos = New DATOS.Clientes

            Return oDatos.AgregarCliente(item)
        Finally
            oDatos = Nothing
        End Try
    End Function
    Public Function ModificarCliente(ByVal item As ENTIDADES.Cliente) As Int32
        Dim oDatos As DATOS.Clientes

        Try
            oDatos = New DATOS.Clientes

            Return oDatos.ModificarCliente(item)
        Finally
            oDatos = Nothing
        End Try
    End Function
    Public Sub BorrarCliente(ByVal cuit As Integer)

        Dim oDatos As DATOS.Clientes

        Try
            oDatos = New DATOS.Clientes

            oDatos.BorrarCliente(cuit)
        Finally
            oDatos = Nothing
        End Try
    End Sub



    Public Function TraerClientePorNombre(ByVal nombre As String) As List(Of ENTIDADES.Cliente)



        Dim oDatos As DATOS.Clientes

        Try
            oDatos = New DATOS.Clientes

            Return oDatos.TraerClientePorNombre(nombre)

        Finally
            oDatos = Nothing
        End Try
    End Function


    Public Function TraerClientePorCuit(ByVal nro As Integer) As List(Of ENTIDADES.Cliente)



        Dim oDatos As DATOS.Clientes

        Try
            oDatos = New DATOS.Clientes

            Return oDatos.TraerClientePorCuit(nro)

        Finally
            oDatos = Nothing
        End Try
    End Function
End Class
